Programalama > PASCAL

uses crt;
  var
tus:char;
a,b,c:integer;
procedure menu;
   begin
      writeln('1 Toplama');
      writeln('2 Çıkarma') ;
      wrteln('Seçiminiz [1/2/ESC]');
      readkey:=tus;
   end; 

  procedure cıkar;
    begin
         writeln('1.Sayı');readln(a) ;
         writeln('2.Sayı');readln(b);
         t:=a-b;  
         writeln('Sonuç............:',t);
   end;

 procedure topla;
    begin
         writeln('1.Sayı');readln(a) ;
         writeln('2.Sayı');readln(b);
         t:=a-b;  
         writeln('Sonuç............:',t);
   end;

  begin 
menu;
      repeat
      if tus='1' then topla;
      if tus='2' then cıkar; 
     until tus=#27;  exit