Написать программу нахождения объёма и площади поверности прямоугольного параллелепипеда

Program superprogram;
var
a,b,c,d,m:integer;
begin
writeln ('Введите стороны a,b,c отделяя их пробелом');
readln (a,b,c);
d:=a*b*c;
writeln ('Объём - ', d);
m:=2*(a*b+ b*c+ a*c);
writeln ('Площадь поверхности -', m);
end.