Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  idojaras
Language: PASCAL
Code:
program Tanacsado;
Uses Crt;
Var idojaras: char;
begin
  ClrScr;
writeln ('Valaszd ki');
writeln ('Sütni fog: s');
write ('Esni fog: e');
readln (idojaras);
if idojaras = 's' then writeln ('Menj kirándulni!');
if idojaras = 'e' then writeln ('Menj moziba');
end.          
          
Comments: