Var r,s:real;begin writeln('r=?, r>20 '); readln(r); s:=3.14159265359*(r*r-400.0); writeln('s=', s);end.
--------------
Но проверку r>20 не делал, просто попросил словами.
//Pascal ABC.NET Версия 2.2 Сборка 790
var s,s1,s2:string;
begin;
while s<>'.' do
begin;
readln(s);
s1:=s1+s;
end;
s2:=chr(39); //chr(39)='
if (pos('O',s1)<>0) and (pos(s2,s1)<>0) and (pos('k',s1)<>0) then writeln('Yes') else writeln('No');
<span>end.</span>
Это файл, объединяющая в себе архив и исполняемый код для его распаковки. Такие архивы, в отличие от обычных, не требуют отдельной программы для их распаковки (получения исходных файлов, из которых они созданы), если исполняемый код можно выполнить в указанной операционной системе. Это удобно, когда неизвестно, есть ли у пользователя, которому передаётся архив, соответствующая программа распаковки.
Цвет - яблоко
Вкус - малина
Скорость - машина
Длина - линейка
Материал - хлопок
Окрас - кот
Высота - дом
Вес - животное
Порода -кот