Владимир, просто великолепно) давай думать

Привет. Нужна помощь с кодом.) Нужно написать программу,которая вычисляет сумму А и В,если результат находится в диапазоне от -32768..32767,то выводится сумма двух чисел в выходном файле,а если сумма не находится в диапазоне,то вывести сообщение в выходном файле \"EROARE DE DEPASIRE\"
Program p1;
VAR
a,b,sum:integer;
f1,f2:text;
begin
assign(f1,\'erorsum.txt\');
assign(f2,\'erorsumout.txt\');
reset(f1);
read(f1,a,b);
sum:=a+b;
if sum in[-32768..32767] then writeln(\'summa a+b=\') else writeln(\'EROARE DE DEPARSIRE\');
rewrite(f2);
writeln(f2,sum);
close(f2);
close(f1);
end.

Пока что только до этого додумался

Прикрепленные файлы:
PROFIWM_COM_202_676656_pascal.png (97.8 кб)
PROFIWM_COM_202_676656_pascal.png (97.8 кб)