Вроде должно быть так:
program primer;
var a,b,x:integer;
y:real;
begin
write('Введите значение переменной A');
readln(a);
write('Введите значение переменной B');
readln(b);
y:=2.4*abs((sqr(x)+b)/a)+(a-b)*sqr(sin(a-b)+sqrt(10)(x-b);
wtite('Результат',y:6:2);
readln
<span>end.</span>
<span>Шрифт
Размер шрифта
Полужирный
Курсив
Подчеркнутый
___
Выровнять:
</span>По левому краю
<span>По центру
По правому краю
__
</span>Нумерация
Var n,m : Integer;
Begin
Write (' введите N: '); Readln (n);
Write (' введите M: '); Readln (m);
Writeln ((n+m)*(m-n+1) div 2);
end.
Главное свойство любой системы – возникновение системного эффекта. Заключается оно в том, что при объединении элементов в систему у системы появляются новые качества, которыми не обладал ни один из элементов в отдельности.
<span>В качестве примера системы рассмотрим самолет. Главное его свойство – способность к полету. Ни одна из составляющих его частей в отдельности (крылья, двигатели и т.д.) этим свойством не обладает, а собранные вместе строго определенным способом, они такую возможность обеспечивают. Вместе с тем, если убрать из системы «самолет» какой-нибудь элемент (например, крыло), то не только это крыло, но и весь самолет потеряет способность летать.
</span>
Var s:string; i:integer;begin readln(s); for i:=1 to length(s)-1 do if s[i]+s[i+1]='му' then begin delete(s,i,2); insert('ло',s,i); end; writeln(s);end.
http://mojainformatika.ru/paskal/uroki-paskal-stroki/118-standartnye-proczedury-i-funkczii-primenyae...