Program z1;
var s,p,i:integer;
begin
s:=0;
p:=1;
for i:= 1 to 10 do
if i mod 2 =0 then s:=s+i
else p:=p*i;
writeln('сумма четных',s);
writeln('произведение нечетных',p);
end.
В первом случае мышь - это животное, в другом случае мышь - это координатное устройство ввода для управления курсором и отдачи различных команд компьютеру.
Рисуешь компас две запятые сверху потом пишешь ью потом рисуешь термос потом 3 запятые сверху
Var s:integer;
begin
writeln('Введите площадь квадрта');
readln(s);
writeln('Сторона квадрта = ',sqrt(s));
writeln('Периметр квадрта = ',sqrt(s)*4);
end.