Çarpım tablosu;
uses crt;
var
s,i,b,a:integer;
begin
 clrscr;
 for s:=1 to 10 do
   begin
 for i:=1 to 10 do
    begin
  if s=6 then
       begin
         a:=12;
          b:=65;
end;
gotoxy(sx13-b,i+a);write(s, ' x ' , i , ' = ' , s * i );
end;
end;
readln;
end.
---------------------------------------------------------------------------
Karekök ve kare alma;

uses crt;
var
a:integer;
c:real;
begin
 clrscr;
writeln(' karesi/kökü bulunacak sayıyı girin..:' );readln(a);
c:=(a*a);
writeln(' karesi=',c:4:0);
c:=sqrt(a);
writeln('kökü=',c:4:3);
readln;
end.