Если PascalABC то вот:
var a,b,p:real;
begin
Writeln('Введите число a,b');
readln(a,b);
p:=(a*b);
Writeln('p = ', p);
end.
Сначала нужно сложить числа в скобках, а потом умножить на 34
Сохранение на диск ctrl+shift+s
Просмотр результатов: f5 в visual studio, f9 на pascal
В том что 100 - это тип данных integer (целое число), а
100.0 - это тип данных Real (дробные)
Const N=30;
var s,b:real;
c,i:integer;
A:array[1..N] of real;
begin
Randomize();
b:=0;
c:=0;
for i:=1 to N do
begin
A[i]:=random(500)+300;
b:=b+A[i];
end;
s:=b/N;
for i:=1 to N do if A[i]<s then c:=c+1;
Writeln('Средняя зарплата: ',s);
Write('Количество сотрудников,получающих зарплату ниже средней: ',c);
End.