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

Question

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

---

Comments

могу только программу составить

---

Составь, спасибо

Answer 1

Var a,b:real;beginwriteln('Введите значение а: ');readln(a);b:=a/2+1;if (a15) thena:=a+1elsea:=20;writeln('a= ',a);end.

Comments

var a,b:real;
begin
writeln('Введите значение а: ');
readln(a);
b:=a/2+1;
if (a15) then
a:=a+1
else
a:=20;
writeln('a= ',a);
end.