Дано : а 10 =32 и в 10 =8 . вычислить р = а * в , с = а / в . результаты представить в прямом коде

Если в паскале, то:
program vic;
var A,B,P,C:real;
begin
A:=32;
B:=8;
P:=A*B;
C:=A/B;
Writeln(P);
Writeln(C);
end.