1.Производительность одного рабочего l деталей в час,сколько деталей изготавливает N рабочих,за 5 часов? 2.Ввести два числа.отрицательные возвести в квадрат,для не отрицательных найти корень из числа. Решите пожалуйста!)

1. var i, n, d: integer; begin write('Введите I, N>> '); read(i, n); d:=i*n*5; writeln(d, ' деталей'); end. 2. var a, b: real; begin write('Введите 2 числа>> '); read(a, b); if (a<0) then a:=sqr(a) else a:=sqrt(a); if (b<0) then b:=sqr(b) else b:=sqrt(b); write('a = ', a, '  b = ', b); end.