Pascalda Yıldızdan Diktörtgen Çizen Program, Pascalda Yıldız Programı

program yildizdan_dikdortgen;
uses crt;
var
   sat,sut,i,j:longint;
begin
     clrscr;
     write('SATIR SAYISINI GIRINIZ...:');readln(sat);
     write('SUTUN SAYISINI GIRINIZ...:');readln(sut);
     for i:= 1 to sat do
     begin
          for j:=1 to sut do
          write('*');
          writeln;
     end;
readln;
end.