Напиши программу по блок схеме (паскаль)

Var a,b,c:integer;

Begin

Read(a,b);

For i:=a to b do

C:=i*i;

End.

Опять же, тоже бессмысленная схема. Может тебе стоило бы сказать что должна делать прога?

Потому как всю эту схему можно заменить так:

Read(b);

C:=b*b;