Вычислите функцию y=1/4√x+100-25 в интервале таблицы значений [-5,5] с шагом 0,5​

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end. 

почитай тут 

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.

по центру каждой стены  по  стулу  а также в каждый угол по стулу