Логические выражения

[Cotman od]

Написать программу которая вычисляет корень суммы квадратов 2-х чисел.
"a" и "b" превышает 1000и округленное число "а" меньше 1
Пожалуйста очень срочно надо!!!

[grom333]

Условие не совсем понял. Но решение примера вроде такое:

var
a,b:integer;
x:real;
begin
writeln('vvedite a b');
readln(a,b);
x:=sqrt(sqr(a)+2*a*b+sqr(b));
writeln(x:0:4);
readln;

end.

[iCaesy]

Корень суммы квадратов двух чисел это:
а=2 и b=3
a в квадрате = 4 b в квадрате 9 их сумма 9+4=13 и найти корень из 13
Вроде так.

Выше неправильно считает программа. Ща сек...

[iCaesy]

var
a,b:integer;
x,y:real;
begin
writeln('vvedite a b');
readln(a,b);
x:=sqr(a) + sqr (b);
y:=sqrt(x);
writeln('RESULT = ',y:3:4);
readln;
end.