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

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.