Люди, помогите с информатикой!!!

Question

Задача №1 
Дано трёхзначное число. Определите оканчивается ли оно цифрой 9? Составить модель, алгоритм, программу. 
Задача№2 
Даны радиус круга и сторона квадрата. Определить у какой фигуры площадь больше? Составить блок-схему, модель, программу. 
Задача№3 
Дано двухзначное число. Определить какая из его цифр больше 1ая или 2ая? Составить модель, алгоритм, программу. 
Задача№4 
Определить, является ли треугольник со сторонами a, b, c - равнобедренным? Составить модель, блок-схему, программу. 
Задача№5 
Определить попадает ли число х в интервал (-2,13)? Составить модель, алгоритм, программу. 
Задача№6 
Даны числа a, b, c. Выяснить существует ли треугольник со сторонами a, b, c?Составить модель, блок-схему, программу.

Alex Fil · Accepted Answer

№1

№2

№3

№4 Uses crt; Var a,b,c:Real; Begin Writeln ('Vvedite a');Readln (a); Writeln ('Vvedite b');Readln (b); Writeln ('vvedite c');Readln (c); If (a=b) and (b=c) then Writeln ('Treugolnic ravnostoronnii') else If (a=b) or (b=c) then writeln ('Ravnobedrennii') Else writeln ('raznostoronnii'); ENd.