Задачка в Паскале.

[koshkarjov]

Задача:
Определить стоимость ремонта комнаты, в который входят:
побелка стен, покраска пола, покраска окон. Окон 3 штуки, размеры 1х10. Длина комнаты - 20 метров, ширина - 15 метров, высота - 3 метра. Ширина рейки окна - 5 сантиметров. Стоимость побелки 1 квадратного метра - 30 рублей, покраска 1 квадратного метра пола - 40 рублей, покраска 1 квадратного дециметра окна - 50 рублей.

program remont;
var a1,b1,a2,b2,a3,b3,c,d1,spol,spot,
       ssmallw,stsmallw,sbigw1,stbigw1,ssmall,
       sbigw2,stbigw2,swind,stwind,summa,stpol,stpot:real;
begin
a1:=a3;
a1:=20;
b1:=b3;
b1:=15;
a2:=1;
b2:=1.1;
c:=3;
d1:=0.05;
spol:=a1*b1;
spot:=spol;
stpol:=40*spol;
stpot:=stpol;
ssmallw:=c*b1;
stsmallw:=ssmall*30*2;
sbigw1:=b1*c;
stbigw1:=sbigw1*30;
sbigw2:=sbigw1-(a2*b2*3);
stbigw2:=sbigw2*30;
swind:=(a2*b2*d1*6);
stwind:=swind*40;
summa:=stwind+stpol+stpot;
writeln('Стоимость ремонта=',summa);
end.

Почему не работает? Где ошибки?

[JekaX]

У меня все работает, а какая у вас ошибка?

[Sazary]

Почему не работает? Где ошибки?

Что не работает? У меня все компилируется и выводит результат.

[koshkarjov]

У меня почему-то не запускается программа:
после компиляции запускаю и у меня сразу вылетает

[JekaX]

в конце перед end. напишите Readln; и все нормуль будет )

[koshkarjov]

Совсем забыл про это... Сейчас заработало. Большое спасибо!

[koshkarjov]

Немного модернизировал программу:

program remont;
var a1,b1,a2,b2,a3,b3,a4,c,d1,spol,spot,
    ssmallw,stsmallw,sbigw1,stbigw1,ssmall,
    sbigw2,stbigw2,swind,stwind,summa,stpol,stpot:real;
begin
writeln('Длина=');
readln(a1);
writeln('Ширина=');
readln(b1);
writeln('Высота=');
readln(c);
writeln('Размер окна=');
readln(a3,a4);
writeln('Ширина рейки окна=');
readln(d1);
spol:=a1*b1;
stpol:=40*spol;
spot:=spol;
stpot:=30*spol;
ssmallw:=b1*c;
stsmallw:=ssmall*30*2;
sbigw1:=a1*c;
stbigw1:=sbigw1*30;
sbigw2:=sbigw1-(a3*a4*3);
stbigw2:=sbigw2*30;
swind:=(a2*b2)*(d1*6);
stwind:=swind*40;
summa:=stwind+stpol+stpot;
writeln('Стоимость ремонта=',summa);
end.