Помогите пожалуйста! 1. Дано три положительных числа. Проверить можно ли…

Задача №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.