Question

Pascal: Napisz program, który wyświetla największą (maximum)
z trzech wprowadzonych liczb a, b, c.

Do tego daję foto jak to ma wyglądać.

http://imageshack.us/photo/my-images/16/pasqk.jpg/

W programie musi być zawarte IF i THEN

Answer 1

program jakis;
USES CRT;

VAR
a,b,c:longint; 

BEGIN
clrscr;
write('Wprowadź a:');
readln(a);

write('Wprowadź b:');
readln(b);

write('Wprowadź c:');
readln(c);

IF a>b THEN 
 if a>c THEN
  writeln(a)
 else

   writeln(c)
  else

if c>b THEN

writeln(c)

else
writeln(b); 

readln;
END. 

Nie mam kompilatora Pascala pod ręką więc pisałem z głowy jak by nie działało napisz jaki błąd. 
ps. Poprawione przed else były średniki a w Pascalu chyba tam się nie stawia.