Program aaa;
uses crt;
var a,b,c:integer;
x, y: real;
begin
writeln(' Vvedite a ');
readln(a);
writeln(' vvedite b ');
readln (b);
wriateln(' Vvedite c' );
readln (c);
x:=((2*a^2-b)/(3*c));
y:=(sqrt(x+c^2)+4*a*b);
writeln( 'x=', x, 'y=', y);
<span>end.
Вот программа, к сожалению, паскаля на компе у меня нет, поэтому, думаю, ты сам справишься с подготовкой программы к запуску и тестированию
</span>
Присвоить - это двоеточие и равно :=
1. фишинг
2. статус
3. модератор
4. аккаунт
5. группа
6. пост
7. реал
8. бан
Слово - ресурс
Var
mas:array[1..100] of integer;
min,i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
min:=mas[1];
for i:=2 to 10 do
if mas[i]<min then
min:=mas[i];
mas[10]:=min;
for i:=1 to 10 do
write(mas[i],' ');
end.