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

program z31;
var x,a,min: integer;
p, r, q: array [1..3] of integer;
begin
for x:=1 to 3 do readln (r[x]);
for x:=1 to 3 do readln (p[x]);
min:=r[1];
a:=1;
for x:=1 to 3 do if r[x]

for x:=1 to 3 do q[x]:=p[x]*a;

for x:=1 to 3 do writeln(q[x]:5);
readln();

end.