использовать Чертежник
алг
нач
сместиться на вектор (2,2)
опустить перо
в;в;п;п;п;л;л;н;п;п;л;л;н;п;п;л;л;л
кон
алг л; нач сместиться на вектор (-2,-2); сместиться на вектор (-2,2) кон
алг п; нач сместиться на вектор (2,2); сместиться на вектор (2,-2) кон
алг в; нач сместиться на вектор (2,2); сместиться на вектор (-2,2) кон
алг н; нач сместиться на вектор (-2,-2); сместиться на вектор (2,-2) кон
Антивирус, джаву если есть, и все по идее
Procedure PrintMatrix(matrix : array[,] of integer);
begin
matrix.Println;
end;
Одурелось о и о так новерно
UPD
__________
Var
a,b,s,i:integer;
begin
readln(a,b);
if a <> b then
for i:=1 to abs(b) do s:=s+a
else for I:=1 to abs(b) do s:=s+a;
if (a<0) and (b<0) then s:=abs(s)
else if b<0 then s:=-s;
writeln(s);
end.