fork download
copy 
  1. program Aj;
  2.  
  3. var slovicko1,slovicko2,slovicko3:string;
  4.  
  5. begin
  6.  
  7. write('Napis slovicko v aj:  ');
  8. readln(slovicko1);
  9.  
  10. write('Napis cesky slovicko:  ');
  11. readln(slovicko2);
  12.  
  13. writeln('Jak zni preklad slova: ',slovicko1);
  14. readln(slovicko3);
  15.  
  16. if (slovicko1 = slovicko3) then
  17.    begin
  18.    writeln('je spravne');
  19.    readln();
  20.    end
  21. else
  22.    begin
  23.    writeln('neni pravne');
  24.    readln();
  25.    end;
  26.  
  27. end.
  28.  
Success #stdin #stdout 0s 276KB
comments (?)
stdin
copy 
hello
ahoj
hello
stdout
copy 
Napis slovicko v aj:  Napis cesky slovicko:  Jak zni preklad slova: hello
je spravne
https://ideone.com/SXnTwu
language:
Pascal (fpc 3.0.4)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!