var
a: integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2 = 0) then
writeln('Число является четным') else
writeln('Число является нечетным');
end.
Var f,n:integer;
begin
write('Сколько дней: ');
readln(f);
n:=f div 7;
writeln('Полных недель: ',n);
<span>end.</span>
Опали послелние листься с берёзки. В луде вода покрылась тонким ледком. Пусто на грядках в огородах
Var
x,y:real;
begin
Write('x='); Read(x);
if x>0 then y:=x-2
else
if x=0 then y:=5*x+10
else begin
Writeln('неверное значение x');
exit
end;
Writeln('y=',y)
end.