Дана программа: 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. составьте блок-схему