Пожалуйста посчитайте УМОЛЯЮ!!! ТОЛЬКО СРОЧНО!!!! 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;
beginwriteln('Введите сторону 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.....Прости, надеюсь на помощь других....