Как решить данную задау?

Question

Как решить данную задау?

no name Ученик (95), на голосовании 2 недели назад

На вход подается два целых числа, каждое на отдельной строке. Напишите программу, которая отнимаем от первого числа 4 и прибавляет ко второму 2, пока сумма этих чисел больше 100, затем выводит измененные числа на экран.

Answer 1

получить первое число
получить второе число
если первое число + второе число > 100
{
пока первое число + первое число больше 100
{первое число = первое число - 4
второе число = второе число + 2
}
написать на экране первое число и второе число
} иначе написать на экране "Входные условия не соблюдены"
конец

Answer 2

var a,b:integer;
begin
readln(a);
readln(b);
while a+b>100 do begin
a:=a-4;
b:=b+2;
end;
write(a,' ',b);
end.