Вводится шестизначное натуральное число. Проверить, является ли оно счастливым (сумма первых трёх цифр равна сумме последних трёх цифр) и, если не является, вывести ближайшее счастливое число.
Pascal

счастливые числа 4 и 7 например:47, 744,4 являются счастливыми числами, а 5, 17, 467 не являются счастливыми числами

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

б< т

к< л

с< е

липа ниже березы

к< л< б< т

сосна выше тополя

к< л< б< т< с< е

самое высокое ель

самое низкое клен