Что делаеть это программа?
Program Example;
Var a,b, S:Integer;
Begin
Writeln ('Введите 2 числа');
Readln (a,b);
S:=a*b
Writeln (S)
Readln;
End.

Ответ дал: faositb