Programalama > PASCAL

(bu delphi 7 de console app de yazilmistir baska compilerde calismaz)
program sayisiralama;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  a,b:byte;

begin
  { TODO -oUser -cConsole Main :
  write('a sayisini yaziniz');readln(a);
  write('b sayisini yaziniz');readln(b);
  if a>b then
  write('a sayisi buyuk',a)
  else
  write('b sayisi buyuk',b);
  }
end.


darb-ül kerim
blademan3535@gmail.com