program suma; uses crt; var a,c,b:longint; BEGIN clrscr; writeln('podaj pierwsza liczbe'); readln(a); readln(b); readln(c); if a>b then if a>c then writeln(a,' jest wieksza') else writeln(b, 'jest wieksza') else if b>c then writeln(b,'jest wieksza' ) else writeln(c,'JEST WIEKSZA'); readln; end.
program suma;
uses crt;
var
a,c,b:longint;
BEGIN
clrscr;
writeln('podaj pierwsza liczbe');
readln(a);
readln(b);
readln(c);
if a>b then
if a>c then
writeln(a,' jest wieksza')
else
writeln(b, 'jest wieksza')
else
if b>c then
writeln(b,'jest wieksza' )
else
writeln(c,'JEST WIEKSZA');
readln;
end.
wklej do pascala i sprawdz czy ci dziala