1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
program chastikov; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes { you can add units after this }; var a,b:integer; begin Readln(a); Readln(b); Writeln('Результат умножения ',a*b); Readln(); end.