Работа в Turbo Pascal

Program Two;
Var a,r,i,n,b:integer;
begin
writeln('Vvidite chetire chisla');
readln(a);
readln(r);
readln(i);
readln(n);
b:=a*r*i*n;
writeln('a*r*i*n=',b);
end.