Question

Помогите пожалуйста решить на Паскале!!!
С клавиатуры вводится два натуральных числа A и B(A<B). Найти сумму квадратов всех чисел от А до В включительно. Если сумма меньше 100, вывести сообщение «Yes», иначе «No».

Answer 1

rogram summakv;

var
a,b,i,s: integer;

begin
Writeln('Введите a и b');
ReadLn(a,b);
for i:=a to b do
begin
s := s + sqr(i);
end;
if s<100
then
writeln('Yes')
else WriteLn('No');
end.