По блок-схеме составить программу в паскаль.

Question

По блок-схеме составить программу в паскаль.

---

Answer 1

Вот, собственно, решёние

---

Comments

var
a,b,c:real;

begin

writeln('Введите значение a,b');
readln(a,b);
if (a>0) and (b>0)
then
begin
a:=2*a+b ;
b:= sqr(b);
end
else
begin
abs(a);
abs(b);
end;
c:=a+b;
writeln('Значение a= ', a,', значение b= ',b,', значение c= ',c);

end.