Напишите программу, которая выполняет «раскодирование» ввеленной пользователем «сжатой» строки. Регистр не важен. Например,
а12b
b
Или
s7ho9y
hy

10*10*1=100 b=12,5 b

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен

смотри схему                                                  

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.