GİRİLEN 3 SAYIDAN EN BÜYÜĞÜNÜ BULAN PROGRAM

uses crt;
var
   eb,a,b,c:integer;
begin
   clrscr;
   write('BIRINCI  SAYI  GIRINIZ:'); readln(a);
   write('IKINCI  SAYI  GIRINIZ:'); readln(b);
   write('UÇUNCU  SAYI  GIRINIZ:'); readln(c);
   eb:=a;

   if b>eb  then  eb:=b;
   if c>eb  then  eb:=c;
   write('GIRDIGINIZ  EN  BUYUK  SAYI:',eb);
   readln;
end.