Дана программа:
Program chisla;
var
a, b, c, d: integer;
begin
writeln ('Введите a: ');
readln (a);
writeln ('Введите b: ');
readln (b);
c:=sqr(a+b);
d:=sqr(a)+sqr(b);
writeln ('Квадрат суммы: ', c);
writeln ('Сумма квадратов: ', d);
End.
СОСТАВЬТЕ БЛОК-СХЕМУ