Programmas kods:
program latin;
uses crt;
var mas:array[1..100,1..100] of char;
r,k:integer;
c1,c2:integer;
izv1,izv2:integer;
rstr,kstr:string;
trg,key:char;
procedure auto;
var x,y,ran:byte;
begin
for y:=1 to r do
for x:=1 to k do
begin
ran:=random(25)+97;{samekle skaitli randoma}
trg:=chr(ran);{so samekletos skaitli parvers par latinu burtu}
mas[x,y]:=trg;{ar latinu burtiem aizpilda masivu}
gotoxy(5+2*x,5+y);
writeln(mas[x,y]);…
