В именах не могут быть пробелы и '
myname
N2
K1L2
Ответ на рисунке. Ответ на рисунке.
Блок-схема - в прилагаемом файле.
var r:integer; s:real;
begin
s:=0;
for r:=59 downto 30 do
s:=s+4*pi*r*r;
writeln('s = ',s:10:3);
end.
Результат:
<span>s = 774779.580</span>
Var
s, m: integer;
begin
writeln('Возраст Саши = ');
read(s);
writeln('Возраст Маши = ');
read(m);
if s > m then writeln('Саша старше Маши');
if m > s then writeln('Маша старше Саши');
if m = s then writeln('Одногодки');
end.