Найти сумму двух чисел. - Pascal ABC

Формулировка задачи:

Входные данные должны считываться из файла input.txt Выходные данные выводятся в файл output.txt Для передачи на тестирование программа должна иметь вид текстового файла.

Даны целые числа А и В (0<=A, B<=1000) . Необходимо найти сумму этих чисел.

Решение задачи: «Найти сумму двух чисел.»

Листинг программы

 Program s1;
uses crt;
var A,B,S:integer;
begin
clrscr;
writeln('Г‚Г‚ГҐГ¤ГЁГІГҐ A=');
readln(A);
writeln('Г‚Г‚ГҐГ¤ГЁГІГҐ B=');
readln(B);
If (A>=0) and (B<=1000)then begin
S:=A+B;
writeln('Г‘ГіГ¬Г¬Г* Г·ГЁГ±ГҐГ«=',S);
end;
If (A<0) and (B>1000) then begin
writeln('ГЌГҐГўГҐГ°Г*Г®');
end;
If (A<0) and (B<=1000) then begin
writeln('ГЌГҐГўГҐГ°Г*Г®');
end;
If (A>=0) and (B>1000) then begin
writeln('ГЌГҐГўГҐГ°Г*Г®');
end;
readkey;
end.

Объяснение кода листинга программы

Объявлены три переменные: A, B и S типа integer.
Задаются условия для проверки диапазона введенных значений переменных A и B.
Если значения переменных A и B удовлетворяют условиям, то выполняется операция сложения и присваивается результат переменной S.
Выводится сообщение с результатом сложения.
Если значения переменных A и B не удовлетворяют ни одному из условий, то выводится сообщение «ГЌГҐГўГҐГ°Г*Г®».