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

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

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 Agt;=5 then writeln(5);
If A=4 then writeln(четыре);
If A=3 then writeln(три);
If Alt;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.