Помогите плиз написать программы на Паскале)))
1.Составьте программу, проверяющую, верно ли
утверждение, что введенное вами целое число является четным.
2.Стороны одного треугольника равны A1,B1,C1. Написать
алгоритм и программу проверки равенства ему другого треугольника.

3. Измеряя промежутки времени между вспышкой молнии и
раскатом грома, определить, удаляется или приближается гроза?.

1) Var a:integer;
Begin   
       Writeln(Введите число);     
           Readln(a);     
If (a mod 2  = 0) then writeln(Введённое число чётное.) 
 Else writeln(Введённое число чётное); 
End.


2)  var A,A1,B,B1,C,C1:integer;
Begin   
     a:=4;b:=1;c:=7;   
        Writeln(Дан треугольник со сторонами A=4 B=1 C=7);   
        Writeln(Введите стороны треугольника A,B,C);     
         Readln(A1,B1,C1);     
If (A=A1) and (B=B1) and (C=C1) then writeln(треугольники равны) 
   Else writeln(треугольники не равны); 
End.

3)var x,y:integer;
Begin 
   write(Введите первый промежуток: );  readln(x); 
      write(Введите второй промежуток: );  readln(y); 
if x   else write(Приближается);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.