Задача: Написать программу...

Задача: Написать программу вычисления суммы всех двузначных чиселS=10+11+12+...+99

для QBasic

 

Program vsum;
var
a,b,x : integer;
const
error = 'Error! Enter two-digit number.';
begin
Write('Enter a =');
ReadLn(a);
if (a <= 99) and (a >= 10) then
begin
Write('Enter b =');
ReadLn(b);
if (b <= 99) and (b >= 10) then
begin
x := a+b;
WriteLn('a + b = ',x);
end
else
Write(error);
exit;
end
else
WriteLn(error);
exit;
end.