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.