Задачи

                     Задача 1

var n:integer;
begin
writeln('задайте целое число');
readln(n);
if odd(n) then writeln('нечетное')
else writeln('четное');
readln
end.

                      Задача 2

program kid;
Var a,b,c: Real;
Begin
WrireIn('Введите а');ReadIn(a);
WriteIn('Введите b'); ReadIn(b);
WriteIn('Введите c'); ReadIn(c);
If(a=b) and (b=c) then WritleIn('треугольник равносторонний')
else
If(a=b) or(b=c) or (c=a) then WriteIn('Равнобедренный')
Else
WriteIn('разносторонний');
End