Очень просто нармсуй на листке а потом как в майнкрафте строй
См. блок-схему
===========================
var i,n:real;
begin
read (n);
for i:=1 to 10 do
write (i*n/10)
end.
S:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then s[i]:='*'
else s[i]:='-';
writeln(s);
readln;
end.
Қызылды бас сосын канал ауыстырады көтінді жала сонда косылады