Program funt;Var m, f:real;beginwriteln('Введите количество фунтов');readln(f);m:=f*453;writeln('Ответ:',m);end.
Var a:uint64;
k:Integer;
begin
write ('Введите число: ');
readln (a);
repeat
k:=k+1;
a:=a div 10
until a=0;
writeln('Количество цифр: ',k)
end.
var a:string;
begin
write ('Введите число: ');
readln (a);
writeln('Количество цифр: ',Length(a))
end.