Programalama > PASCAL

uses crt;
var
  carpim,sayi:integer;
begin
  clrscr;
  writeln('Bir sayi giriniz  =');readln(sayi);
  carpim:=sayi*1;
  writeln('Girdiginiz sayinin 1 ile carpimi   =',carpim);
  carpim:=sayi*2;
  writeln('Girdiginiz sayinin 2 ile carpimi   =',carpim);
  carpim:=sayi*3;
  writeln('Girdiginiz sayinin 3 ile carpimi   =',carpim);
  carpim:=sayi*4;
  writeln('Girdiginiz sayinin 4 ile carpimi   =',carpim);
  carpim:=sayi*5;
  writeln('Girdiginiz sayinin 5 ile carpimi   =',carpim);
  carpim:=sayi*6;
  writeln('Girdiginiz sayinin 6 ile carpimi   =',carpim);
  carpim:=sayi*7;
  writeln('Girdiginiz sayinin 7 ile carpimi   =',carpim);
  carpim:=sayi*8;
  writeln('Girdiginiz sayinin 8 ile carpimi   =',carpim);
  carpim:=sayi*9;
  writeln('Girdiginiz sayinin 9 ile carpimi   =',carpim);
  carpim:=sayi*10;
  writeln('Girdiginiz sayinin 10 ile carpimi =',carpim);
  repeat until keypressed;
end.