СЕГОДНЯ СДАВАТЬ
Для данной программы построить блок-схему и найти значение С и Р при х=45; 97; 55
program n_3;
var x, a, k,C: integer;P: real;
begin
writeln ('Введите двузначное число');
readln (x);
a:=x div 10;
k:= x mod 10;
if a>=k then C:=sqr(a+k) else C:=sqr(a)+sqr(k);
P:= sqrt(C);
writeln ('C=', C);
writeln ('Р=', P:5:2);
end.
Программу, блок-схему и решение записать