Организация ветвлений на Паскале

ввод a, b
a+b<180
треугольник не существует
(a=90) или (b=90) или (a+b=90)
треугольник прямоугольный
треугольник не прямоугольный
начало
конец
треугольник существует

Program TR;
var a,b:real;
begin writeln (‘введите два угла треугольника’);
readln (a,b);
if a+b<180 then
begin
writeln (‘треугольник существует’);
if (a=90) or (b=90) or (a+b=90)
then writeln (‘треугольник прямоугольный’)
else writeln (‘треугольник не прямоугольный’)
end
else writeln(‘треугольник не существует’)
readln
end.

Решение заданий на закрепление материала. Чтение алгоритмов.
Определить результат выполнения алгоритмов. Записывайте каждый результат, чтобы получить фразу.
1.а:=5; в:=8; 2. а:=5; в:=8;
а:=а+в; а:=а+в;
если а > в если а < в
то вывод «если» то вывод «внимательнее»
иначе вывод «будь» кв
кв вывод «хочешь съесть»