Определить, какая площадь и квадратных метрах будет покрашена и какая будет побелена

program speed_z2v1;
  var S,S1,S2,L,b,h,dl,dh,ol,oh,ph:  real;
   begin
    writeln ('Ðåøåíèå çàäà÷è: òåìà 1 çàäàíèå 2 âàðèàíò 2');
    writeln ('');
    writeln ('ââåäèòå L - äëèííà êëàññà');
    writeln ('ââåäèòå -  b - øèðèíà êëàññà ');
    writeln ('ââåäèòå -  h - âûñîòà êëàññà ');
    read (S);
         S:=(2*L)*(2*b)*h;('ïëîùàäü ñòåí' );
 
    writeln ('ââåäèòå - dl - äëèíó äâåðè ');
    writeln ('ââåäèòå - dh - øèðèíó äâåðè ');
    read (S1);
         S1:=dl*dh; ('ïëîùàäü äâåðè');
    writeln ('ââåäèòå - ol  - äëèíó îêíà ');
    
    writeln ('ââåäèòå - oh - øèðèíó îêíà ');
     read (S2);
         S2:=ol*oh *3; ('ïëîùàäü 3 îêîí');
    
    writeln ('ââåäèòå - ph - âûñîòà ïîäîêîííèêà îò ïîëà');
 
    end.

uses crt;
var
l,b,h,dl,dh,ol,oh,ph,kras,bel: real;
begin
writeln('Введите длинну l, ширину b, высоту h класса: ');
readln(l,b,h);
writeln('Введите размер двери dl x dh:');
readln(dl,dh);
writeln('Введите размер окна ol x oh: ');
readln(ol, oh);
write('Введите высоту расположения подоконника: ');
read(ph);
kras:=l*b+4*l*(h-0.1*ph)-3*oh*ol-dl*(dh-0.1*ph);
bel:=l*b+(b*(0.1*ph)*4)-(dl*(0.1*ph));
writeln('Площадь покраски - ',kras,' м^2');
write('Площадь побелки - ',bel,' м^2');
end.

kras:=l*b+(2*b*(h-0.1*ph)+2*l*(h-0.1*ph))-3*oh*ol-dl*(dh-0.1*ph);
bel:=l*b+(2*b*(0.1*ph)+2*l*(0.1*ph))-(dl*(0.1*ph));

bel:=l*b+(2*b*(0.01*ph)+2*l*(0.01*ph))-(dl*(0.01*ph));

 program pr;
var k:byte;
var a,p,l,h,R,S:real;
begin
writeln('площадь прямоугольника-1');
writeln('площадь треугольника-2');
writeln('площадь цилиндра боковой поверхности-3');
writeln('площадь шарового сегмента-4');
writeln('площадь круга-5');
writeln('площадь не знаю-6');
read(k);
case k of
1:begin
writeln('введите P и L');
read(p,l);
s:=p*l;
end;
2:begin
writeln('введите p и h');
read(p,h);
s:=p*h/2;
end;
3:begin
writeln('введите p,l и h');
read(p,l,h);
s:=2*pi*R*h;
end;
4:begin
writeln('введите R');
read(R);
s:=2*pi*R*l;
end;
5:begin
writeln('введите R и p');
read(R,p);
s:=R*R*pi;
end;
6:begin
writeln('введите R,h и a');
read(R,h,a);
s:=pi*R*(2*h+a);
end;
end;
writeln('площадь равна ',s);
readln;
end.