ввести число.если оно положительное,уменьшить его ** 3,пока оно не станет...

Question

ввести число.если оно положительное,уменьшить его на 3,пока оно не станет отрицательным.Если же число отрицательное,то увеличивать его на 2,пока оно не станет больше 70.Ни экраны вевести оба число.

ЗАПИСАТЬ ЗАДАЧУ В ПАСКАЛЕ!И ЕСЛИ МОЖНО ПРАВИЛЬНУЮ БЛОК СХЕМУ!

Answer 1

var a:integer;
begin
readln (a);
if (a>0) then
repeat
a:=a-3;
until(a<0);</p>

 

if (b<0) then<br>repeat
a:=a+2;
until (a>70);

writeln (a);
end.