program Kuba;
uses crt;
var a,b,c,d:integer;
begin
clrscr;
writeln('Hello mine turtle...');
writeln('Hello!');
writeln('How do you do?');
writeln('Thank you. How do you do?');
writeln('Zadej źˇslo');
readln(a);
writeln('Zadej 2. źˇslo');
readln(b);
c:=a*b;
writeln('Soucin cisel ',a,' a ',b,' je ',c,'.');
writeln('Zadej 3. cislo');
readln(d);
if (a>b) and (b>d) then writeln('a je nejvetsi');
if (a>d) and (b>a) then writeln('b je nejvetsi');
if (d>a) and (d>b) then writeln('c je nejvetsi');
readln();
end.