Первая программа
Нахождение суммы двух целых чисел, введенных с клавиатуры.
program perv; (*название программы*)
uses CRT; (*в программе используем модуль CRT*)
var a, b, c: integer; (*в программе используются переменные a, b и с, значения которых должны быть целые числа, так как тип integer*)
begin (* начало программы*)
clrscr; (*команда стирает все предыдущие надписи*)
writeln
('Esimene arv: '); (*напишет на экране
Esimene arv: и переведет курсор на новую строку, так как
ln*)
readln (a); (*будет ждать,
пока мы введем целое число для переменной а и нажмем
Enter*)
writeln ('Teine arv: '); (*напишет на экране Teine arv: и переведет
курсор на новую строку, так как ln*)
readln (b);
(*будет ждать, пока мы введем целое число для
переменной b и нажмем
Enter*)
c:=a+b; (*вычислит сумму
двух введенных чисел и значение присвоит
переменной с*)
writeln (a,' +
',b, ' = ',c); (* на экран выведет
значение переменной а, знак плюс, значение
переменной b, знак равно и значение переменной
с*)
readln; (*будет ждать, когда нажмем Enter. Тогда программа
закроется*)
end. (*конец
программы*)
NB! Комментарии отмечены зеленым цветом, программой не читаются, видны только в "исходном коде" и на консоль не выводятся.