Вот держи.там пояснил немного.если есть вопросы-задавай
36 Кбайт
1)24/80=0.3
2)0.3*120=36
Ответ:36 Кбайт
Var a:integer;
d:string;
f:char;
begin
writeln('введите сторку');
readln(d);
for a:=1 to length(d) do begin
f:=d[a];
write(f);
write(' ');
end;
<span>end.</span>