в кротчайшие сроки нужно отдать 50б

1. а

2. min=1

   min=7

   min=10

program123;

var x,y:real;

begin

writeln(Введите x=);

readln(x);

if x<5 then y:=3*x also

x=5 then y:=sqr(x) also

y:=x-10;

writeln(x);

end.

Объяснение: Доверься, это правильно