Составить блок-схему

var x:integer;
begin
writeln('Введи х');
read(x);
writeln('Вы ввели число:, x);
end.

var x,y,b:real;
begin
write('Введите футы: ');readln(x);
write('Введите метры ');readln(y);
b:=x*0.45;
writeln(x,' футов = ',b,'метров');
if y>b then writeln(x,' футов < ',y,' метров')
else writeln(x,' футов > ',y,' метров');
end.

label 1;
var x:integer;
begin
1:writeln ('Введи номер месяца');
read(x);
case x of
12,1,2:writeln('Зима');
3,4,5:writeln('Весна');
6,7,8:writeln('Лето');
9,10,11:writeln('Осень');
else goto 1;
end.

var x,y,f,i,g,h,z,a,b,c,d,e:integer;
begin
x:=0
for x:=19 to 34 do
begin
y:=x+1;
writeln(y);
end;
write('Введи число не меньше 10: ');
readl(a);
for z:=9 to a do
begin
b:=2*2;
writeln(b);
end;
writeln('Введи число не больше 50: ');
readln(c);
for c:=e to 50 do
begin
d:=c*c*c;
writeln(d);
end;
rad(g,h);
for F:=g to h do
if f<=h then
begin
i:=h+f-h;
writeln(i);
end;
end.

var a,c,n,b:integer;
begin
a:=1;
read(n);
repeat
a:=(a+1)+1;
writeln(a);
until a>=n;
for b:=1 to n do
begin
if b mod 2=1 then
c:=c+b;
end;
writeln('c=',c-1);
end.

const n=18,n=3;
var k,i,j:integer;
b:array[1..n] of integer;
begin
writeln('Введи данные');
for i:=1 to n do
for j:=1 to m do 
read(a[i,j]);
for i:=1 to n do 
begin 
writeln;
for j:=1 to m do 
write(a[i,j],' ');
end;
for i:=1 to n do 
begin
for j:=1 to m do
if a[i,j]=5 then k:=k+1;
end;
writeln('k=',k);
for i:=1 to n do 
b[i]:=0
for i:=1 to n do
begin
for j:=1 to m do
if a[i,j]=3 then b[i]:=b[i]+1;
end.