program urazbaev; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes { you can add units after this }; var a,b,c:integer; begin writeln ('Введите 1 слагаемое'); readln (a); writeln ('Введите 2 слагаемое'); readln (b); writeln ('Результат'); writeln (a+b); readln (); end.