На скринах,сделать в паскале задачу

Program v1;

uses crt;

var a,b,h,s:real;

begin

 writeln('Введите длину параллелепипеда a'); readln(a);

 writeln('Введите ширину параллелепипеда b'); readln(b);

 writeln('Введите высоту параллелепипеда h'); readln(h);

 s:=2*(a*b+a*h+b*h);

 writeln('========================');

 writeln('ответ');

 writeln('Площадь поверхности параллелепипеда s равна ',s, ' кв.см'); readln;

end.