var a,b: integer;
begin
writeln ('Введите 1 число ');
readln(a);
writeln ('Введите 2 число ');
readln(b);
if a +b = 100 then
writeln ('ВЕРНО')else writeln('НЕВЕРНО')
end.
var a,b: integer;
begin
writeln ('Введите 1 число ');
readln(a);
writeln ('Введите 2 число ');
readln(b);
if a +b = 100 then
writeln ('ВЕРНО')else writeln('НЕВЕРНО')
end.