Паскаль. написать 2 любых числа, найти их сумму, создать условие"если сумма < 5 ввести , если > 5 ввести пока"

// Pascal ABC.NET
var
    n1, n2, sum : integer;

begin
    sum := 0;
    readln(n1, n2);
    sum := n1 + n2;
    if sum < 5 then
        writeln('Привет');
    if sum > 5 then
        writeln('Пока');
end.

V=K*I;
V - объем сообщения
K - количество символов в сообщении I - вес одного символа;
N=2^I, где N мощность алфавита (N≤32 ⇒ I≤5);
V₁=V₂ (объёмы сообщений);
2,5*K₁ = K₂
V₁=K₁*I₁;
V₂=K₂*I₂=2,5*K₁*I₂;
приравняем объёмы
K₁*I₁=2,5*K₁*I₂ ⇒
I₁ = 2,5*I₂
решим уравнение в целых числах, учитывая, что любое I≤5
( можно подставлять числа для I₁ от 1 до 5 и найти то решение, при котором I₂ - целое число);
у меня получилось I₁ = 5; I₂=2 т.к. 5=2,5*2
нам нужны мощности 1го и 2го алфавитов
N₁=2^I₁=2⁵=32 символа;
N₂=2^I₂=2²=4 символа.

V=K*I;
V - объем сообщения
K - количество символов в сообщении I - вес одного символа;
N=2^I, где N мощность алфавита (N≤32 ⇒ I≤5);
V₁=V₂ (объёмы сообщений);
2,5*K₁ = K₂
V₁=K₁*I₁;
V₂=K₂*I₂=2,5*K₁*I₂;
приравняем объёмы
K₁*I₁=2,5*K₁*I₂ ⇒
I₁ = 2,5*I₂
решим уравнение в целых числах, учитывая, что любое I≤5
( можно подставлять числа для I₁ от 1 до 5 и найти то решение, при котором I₂ - целое число);
у меня получилось I₁ = 5; I₂=2 т.к. 5=2,5*2
нам нужны мощности 1го и 2го алфавитов
N₁=2^I₁=2⁵=32 символа;
N₂=2^I₂=2²=4 символа.