Program my;
Var a,k,v,y,w:integer;
begin
writeln('Vvidite 4 chisla');
readln(a);
readln(k);
readln(v);
readln(y);
w:=a*k*v*y;
wrightln('a*k*v*y=',w);
end.

Текст программы вывода в Turbo Pascal

Program One;

begin

write('Hello, world!');

end.