Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  save
Language: PASCAL
Code:
program HelloWorld;
var
  a,b    : string;
begin
  writeln('Zadej jmeno');
  Readln(a);
  if a='jmeno' then writeln ('Zadej heslo'),
readln(b);
if b='heslo' then writeln('Spravne jmeno a heslo')
else writeln ('spatne jmeno nebo spatne heslo');
readln;
end.          
          
          
          
          
          
          
          
          
          
          
          
Comments: