Определить попадает ли точка с заданными координатами в одну из областей 1 или 3 рис 4.5

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен

написано для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.

прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.

на  tpascal:

var i: integer;

begin

for i: =10 to 99 do begin

if i mod 3 = 2 then

writeln (i,' ',-i,' ');

i: =i+1;

end;

readln

end.

подвести курсор к элементу удаления 

нажать клавишу backspace.