Помогите пожалуйста! 1.Дано три положительных числа.Проверить можно ли построить прямоугольный треугольник с заданными сторонами. 2.Проверить делится ли данное число на 13.

Задача №1 (написанная на паскале)

uses crt;vara, b, c: real;beginreadln (a, b, c);a:= a*a;b:= b*b;c:= c*c;if (a+b=c) or (b+c=a) or (c+a=b)then writeln ('Mozhno') else writeln('oshipka postroenie');readkey;end.

Задача №2.(написанная на паскале) 

uses crt;vara : integer;beginreadln (a);if (a mod 13 =0) then writeln ('da') else writeln ('net');readkey;end.