ну если число букв надо указать, то когда -6 (<span>В ответе укажите, сколько букв было в исходной радиограмме.)</span>
Вот решение ваше задачки. В ответе выводится число: 4
Progran Znanija;
var x, y:integer;
begin
readln(x);
if x<10 then
y:=2*x+x-5;
else
begin
if x<13 then
y:=5*x*x-x;
else
y:=7*x-5;
end
writeln(y);
end.
Так :)
program p1;
var a:integer;
begin
writeln('Введите число: ');
read(a);
writeln('число: ',a);
<span>end.</span>