Var n,m,i,j,k:integer;
begin
read(n,m);
for i:=1 to n do
begin
k:=i;
writeln;
for j:=1 to m do
begin
write(k,' ');
k:=k+n;
end;
end;
end.
Можно такими координатами: 0.0 4.8 8.0 0.0
итого 4 координаты
Program qq;
const n=15;
var a:array[1..n] of Integer;
i:Integer;
begin
for i:=1 to n do begin
a[i]:=random(70-20);
write(a[i]:4);
end;
writeln;
for i:=1 to n do begin
if a[i] mod 2 = 0 then a[i]:=0;
write(a[i]:4);
end;
end.
Выделить нужные ячейки.
Сделать форматирование (по ширине, высоте, межстрочному интервалу и т.п.).