Допустим нам необходимо написать код программы,  чтобы над исходным(writeln(s, '25')) числом была возможность исполнять определенные действия?..

Сначало никак не мог решить:

var a,s,k:integer;
begin
write('введите число');
readln(a);
if a mod 10=5 then begin
k:=a div 10;
s:=k*(k+1);
end;
writeln(s, '25'):
end.

Вариант решения задачи пришел достаточно спонтанно:

var a,s,k,r:integer;
begin
write('введите число');
readln(a);
if a mod 10=5 then begin
k:=a div 10;
s:=k*(k+1);
end;
r:=(s*100)+25;
writeln(r);
end.

Спонсор поста: в интернет-магазине shop.mcart.ru, Вы всегда и по приемлимым ценам можете приобрести стильные компьютеры и ноутбуки, качественные сервера, лицензионное программное обеспечение, сетевое оборудование и средства связи от известных мировых брендов. Обращаясь к нам Вы всегда можете рассчитывать на высокое качество обслуживания и хороший сервис!