Помогите составить программу в Паскаль, пожалуйста))) Нужно рассчитать стоимость...

Question

Помогите составить программу в Паскаль, пожалуйста)))
Нужно рассчитать стоимость материалов для ремонта пола комнаты. Цена 1 м^2 линолеума - 300 рублей, 1 плинтус, длиной 3 м стоит 60 рублей. Сначала рассчитать площадь и периметр пола комнаты, размеры произвольные)
СРОЧНО!!!

Answer 1

Program zz;var a,b,s,p,z,y:integer;beginwriteln('Длина пола:');readln(a);writeln('Ширина пола:');readln(b);s:=a*b;writeln('Площадь пола:',s);p:=2*(a+b);writeln('Периметр пола:',p);z:=s*300;writeln('Цена линолеума:',z,'рублей');y:=20*p;writeln('Цена плинтуса:',y,'рублей');end.