ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Как-то так, если условие правильно понял ))

Код:

var
x1,x2:integer;
y:real;
begin
write('x1=');
readln(x1);

write('x2=');
readln(x2);

y:=sqrt((sqr(x1)+x1/x2)(16*x2*x1);

writeln('y=',y);
end.

Ну, а если на Дельфи, то сделаешь 2 edit и кнопку. В событии кнопки напишешь

Код:

x1:=strtoint(edit1.Text);
x2:=strtoint(edit2.Text);
y:=sqrt((sqr(x1)+x1/x2)(16*x2*x1);

// и выведешь y куда нибудь