Написать блок схемы в программе PascalABC​

var a,i:integer;

begin

write('Введите размер таблицы -> ');

readln(a);

writeln('- - - - - - - - - - - - - - - - -');

for i:=1 to a do

if (a mod 2 <> 0) then

writeln(i, ' ', i*i);

writeln('- - - - - - - - - - - - - - - - -');

end.

Объяснение:

вот