Не сидите много за компьютером, это опасно. компьютер плохо сказывается на здоровье человека. в частности на осанке и зрении. что бы с тобой было все хорошо нужно сидеть ровно перед экраном и не сутулиться. делать перерывы и долго не сидеть за компьютером. компьютер полезная вещь, но злоупотреблять не стоит
var
s,s1:real;
k:integer;
begin
s:=10;
k:=1;
while s<20 do
begin
s:=s*1.1;
k:=k+1;
end;
writeln('в ', k,' день он пробежит 20 км');
s:=10;
s1:=10;
k:=1;
while s<200 do
begin
s:=s+s1*1.1;
s1:=s1*1.1;
k:=k+1;
end;
writeln('в ', k,' день суммарный пробег превысит 200 км');
end.
Алгоритм в виде блок-схемы в приложенной картинке
Program CircleS;
Uses Crt;
const pi=3.14;
var S,r:real;
begin
clrscr;
write('Введите радиус круга:');
readln(r);
S:=pi*(r*r);
writeln('Площадь круга:',S);
readkey;
end.