program ArrayS;
var
A: array of string;
i: Integer;
s: string;
begin
s := '';
i := 0;
WriteLn ('Введите элементы массива через Enter. Пустое значение - окончание ввода:');
repeat
ReadLn (s);
if s <> '' then begin
Inc (i);
SetLength (A, i);
A [i - 1] := s;
end;
until s = '';
for i := Low (A) to High (A) do
if Length (A [i]) > 4 then
A [i] := A [High (A)];
WriteLn;
WriteLn ('Результирующий массив:');
for i := Low (A) to High (A) do
Write (A [i], ' ');
ReadLn;
end.
Оператор mod возвращает остаток от деления. Четное число – такое, остаток от деления которого на 2 равен нулю.
Функция int возвращает целую часть дробного числа. С её можно реализовать mod (
– примерно то же самое, что и 
) или сравнить результат умножения на 2 целой части результата деления исходного числа на 2 с исходным числом.
Код:
begin
var a := ReadInteger();
writeln(a mod 2 = 0);
writeln(a - 2 * int(a / 2) = 0);
writeln(a = 2 * int(a / 2));
end.
Пример ввода:
5
Пример вывода:
False
False
False
Пример ввода:
42
Пример вывода:
True
True
True
five,two, three,time,all: integer;
begin
writeln('Введите количество пятерок и двоек');
readln(five,two);
three:=4*(five+two);
writeln('Каждый день ученик получает ', three,' троек');
all:=436* three;
writeln('За год, два месяца, одну неделю и 3 дня ученик получит ', all,' троек');
readln;
end.