Вот, в файле код программы. Паскаль.
var
a, max, i: integer;
begin
repeat
readln(a);
if(a > max) and (a mod 2 = 0) then max := a;
inc(i);
until(i = 6);
writeln('Макс. четное число: ', max);
end.
(-53 ; 67)
Var X, Y, Z : Integer;
BeginY:= 1;RepeatX:= X-12;Z:= Z+16;Y:= Y+1;Until Y = 5;X:= X-3;Z:= Z+1;X:= X-2;Z:= Z+2;Writeln('X= ', X, ' | Z= ', Z);End.
program raf105;
var
x,y: integer;
begin
write('x = ');
readln(x);
write('y = ');
readln(y);
if x+y < 0 then writeln(x+y,' Меньше нуля')
else writeln(x+y,' Больше или равно нулю');
end.
<h3>PascalABC</h3>