Var r,s:real;begin writeln('r=?, r>20 '); readln(r); s:=3.14159265359*(r*r-400.0); writeln('s=', s);end.
--------------
Но проверку r>20 не делал, просто попросил словами.
Программист пишет программу, создает что-то
Пользователь просто использует
Основное предназначение - сбор, хранение и обработка информации
Ping 192.168.104.1
И смотри на количество полученных пакетов. Если 0- нет соединения.