Question

Нарисовать блок-схемы к следующим программам*
помогиииииитеееееееееееееееее

Program z1;
var А, В, Sr, Р:integer;
begin
writeln(‘введите А,В’);
readln(А,В);
P:=А*В;
Sr:=(А+В)/2;
writeln(‘Sr=’ , Sr, ‘Р=’,Р);
end.
Program z2;
var А, В,:integer;
S: real;
begin
writeln(‘введите А,В’);
readln(А,В);
If A>=5 then writeln(‘пять’);
If A=4 then writeln(‘четыре’);
If A=3 then writeln(‘три’);
If A<3 then writeln(‘два’);
end.
Program z3;
var i, a,b,S,k: integer;
begin
writeln(‘введите a,b’);
readln(a,b);
For i:=a to b do
begin
S:=S+i;
k:=k+1;
end;
writeln(‘Sr=’,S/k);
end.

Answer 1

Блок схема к программе z1
Ввод(A,B)--->{P=A*B  Sr=(А+В)/2}------>Вывод(Sr,P)