Составить программу "вычисление произведения 3 чисел" в pascal abc

Var a,b,c,x:integer;
begin
readln (a);
readln (b);
readln (c);
x:=a*b*c;
writeln (x);
end.