Даны 3 целых числа a, b, c. определите максимальное число.

максимальнинькое число с

1. program z1; var q,w: real; begin writeln('введите число'); readln(q); w: =abs(q); writeln('модуль, введенного вами числа = ',w); end. 2. program z1; var x1,x2,y1,y2: real; begin writeln('введите координаты 1-й точки'); readln(x1,y1); writeln('введите координаты 2-й точки'); readln(x2,y2); if x1=x2 then writeln('отрезок перпендикулярен оси ох и параллелен оси оy') else if y1=y2 then writeln('отрезок перпендикулярен оси оy и параллелен оси оx') else writeln('отрезок располагается под углом к осям'); end.

Код pascalabc 3.0 uses graphabc, crt; var x,y,t,v1,v2: integer; c: word; begin write('введите время работы светофора:   '); readln(t); write('введите скорость зелёной машины: '); readln(v1); write('введите скорость красной машины: '); readln(v2); lockdrawing; repeat clearwindow; case (c div t) mod 3 of 0: setbrushcolor(clgreen); 1: setbrushcolor(clyellow); 2: setbrushcolor(clred); end; circle(-30+(windowwidth div +(windowheight div 2),10); case (c div t) mod 3 of 2: setbrushcolor(clgreen); 1: setbrushcolor(clyellow); 0: setbrushcolor(clred); end; circle(-40+(windowwidth div 2),30+(windowheight div 2),10); if c< 65535 then c: =c+1 else c: =0; setbrushcolor(clmedgray); fillrect(0,20+(windowheight div 2),windowwidth,-20+(windowheight div 2)); fillrect(20+(windowwidth div 2),0,-20+(windowwidth div 2),windowheight); setbrushcolor(clgreen); fillrect(-13+(windowwidth div +y,13+(windowwidth div 2),y); if ((x+v1< =(windowwidth div 2)-20)or(x-40> =(windowwidth div 2)+20)) then x: =x+v1 else     begin     if ((y-40> =20+(windowheight div 2))or(y< =(windowheight div 2)-20)) then           begin           if ((c div t) mod 3 = 2)or(x> (windowwidth div 2)-20) then x: =x+v1           end     end; if x> =windowwidth+40 then x: =0; setbrushcolor(clred); fillrect(-40+x,13+(windowheight div 2),x,-13+(windowheight div 2)); if (y+v2< =(windowheight div 2)-20)or(y-40> =(windowheight div 2)+20) then y: =y+v2 else     begin     if (x-40> =20+(windowwidth div 2))or(x< =(windowwidth div 2)-20) then           begin           if ((c div t) mod 3 = 0)or(y> (windowheight div 2)-20) then y: =y+v2           end     end; if y> =windowheight+40 then y: =0; redraw until false; end.