блок схема к этой программе

[emin313gs]

program z_1;
uses crt;
var Sob,S1,S2,S3,S4,a1,a2,b1,b2,c1,c2:r eal;
begin
clrscr;
Writeln('вывод 4х сторон');
S1:=4*4.8/2;
S2:=4*1.5/2;
S3:=6*1.5;
a1:=1*1/2;
a2:=6*0.5/2;
S3:=S3-(a1+a2);
S4:=(1.5*2);
b1:=1.5*0.5/2;
b2:=2*0.2/2;
S4:=S4-(b1+b2);
Sob:=S1+S2+S3+S4;
Writeln('площадь 1 стороны=',S1:2:2);
Writeln('площадь 2 стороны=',S2:2:2);
Writeln('площадь 3 стороны=',S3:2:2);
Writeln('площадь 4 стороны=',S4:2:2);
Writeln('площадь всех частей',Sob:2:2);
Readln;
end.

[ROMA2PVT]

вот лови.раздел описания переменных Var добавь только