Приклади лінійних програм

Задача 1
Обчислити суму цифр цілого двоцифрового числа n.
Реалізація на Pascal з коментарями:
program sumofdigits;
var n, a, b, sum: integer; {оголошуємо змінні, всі вони будуть цілого типу}
begin
 writeln ('введіть ціле двоцифрове число n'); {виводимо користувачу повідомлення про те, які дані потрібно ввести}
 read (n); {зчитується число, яке ввів користувач}
 n:= abs(n); {визначається модуль числа}
 a:= n div 10; {знаходимо неповну частку від ділення з остачею на 10}
 b:= n mod 10; {знаходимо остачу від ділення на 10}
 sum:= a+b; {знаходимо суму результатів від попередніх операцій}
 write ('Сума цифр дорівнює ', Sum) {результат виводиться на екран}
end.

Для того, щоб програма працювала швидше, необхідно мінімізувати її код (зробити код програми коротшим). Деякі команди можна відкинути. Таким чином матимемо наступне:
var n, a, b, sum: integer;
begin
read (n);
n:= abs(n);
a:= n div 10;
b:= n mod 10;
write (a+b)
end.
Задача 2 (# 133 e-olymp) "Квадрат і точки"
Реалізація на Pascal:
program task133;
var n, k: integer;
begin
read (n);
k:= sqr((n+1));
write (k);
end.
Примітка: Тим, хто працює із системою e-olymp, для уникнення проблем при компіляції програми варто використати тип змінних під назвою longint, оскільки результати тесту програми можуть виходити за межі діапазону значень integer.
Приклад програми:
var n, k: longint;
begin
read (n);
k:= sqr((n+1));
write (k);
end.

Задача 3. Написати програму для обчислення значення виразу:

var x, z: real;

begin

  write('x='); {на екран виводиться: х=}

  read(x); {зчитується значення змінної х}

  z:=sqr(x)+2*x+3; {змінній z  присвоюється значення згідно формули, заданої у задачі}

  write(z) {отримане значення змінної z виводиться на екран }

end.