1. Программа определяет наибольшее из двух чисел а и b. Все числа вводятся с клавиатуры.
2. Найти периметр прямоугольного треугольника P, если известны длины катетов а и в (вводятся с клавиатуры) и формула P = a + b +c и теорема Пифагора.
Вводить в qBasic

А если б=а?

№1 program prim 1;  uses crt;  var a, b: integer;begin  clrscr;  writeln('введите 2 числа');  readln(a,b);  if a>b then writeln(a) else writeln(b);end.№2CLS  INPUT "A, B = ";a, b c = SQR(a ^ 2 + b ^ 2) p = a + b + c PRINT "PERIMETR ="; p \END