// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=Abs(ReadInteger('Введите целое число:'));
if n.IsOdd then Println('Число нечетное')
else
if n=0 then Writeln('Ноль вводиить нельзя')
else Println('Число четное')
end.
они не писали гласные звуки и не пользовались дополнительными знаками, как египтяне
Program n1;
var sum,a: real;
i: integer;
begin
i:=0;
sum:=0;
while i<10 do
begin
readln(a);
sum:=sum+a;
i:=i+1;
end;
write(sum);
end.
Facebook, Skype, Vkontakte,Odnoklasniki