Решите УМОЛЯЮ!!! ТОЛЬКО СРОЧНО!!!! 1,4,5 ЗАДАНИЕ. 49 БАЛЛОВ!!!!!!!!

4 задание:

var a: 10..99;

begin

  readln(a);

  if (a mod 10=3)or(a div 10=3) then writeln('Цифра 3 входит в число ',a)

  else writeln('Цифра 3 не входит в число ',a);

end.

-----------------------------------------------------------------------------------------------------

Задание 5:

uses crt; var a,b,c:real; begin writeln('Введите сторону a'); readln(a); writeln('Введите сторону b'); readln(b); writeln('Введите сторону c'); readln(c); if (a=b)or(a=c)or(b=c) then writeln('Равнобедренный') else writeln('Не равнобедренный'); readln; end.----------------------------------------------------------------------------------------------------1 задание к сожалению немного не понял 0_0.....Прости, надеюсь на помощь других....