Задача не совсем внятная, так что предполагается следующее:
1. С клавиатуры вводится кол-во деталей, которые должен сделать 2-й слесарь, то есть без учета брака.
2. 3-й слесарь не сделал на 50 деталей меньше 1-го, а
должен был сделать.
3. Каждый рабочий получает деньги только за качественную деталь (не брак).
var s1,s2,s3,k1,k2,k3: integer;
begin
write('Количество деталей для 2-го слесаря (не менее 100): ');
readln(k2);
k2:=k2-k2 div 5;
k1:=2*k2;
k3:=k1-50;
k3:=k3-k3 div 3;
s1:=20*k1;
s2:=15*k2;
s3:=10*k3;
writeln('1 слесарь сделал ',k1,' деталей, он заработал ',s1,' тенге');
writeln('2 слесарь сделал ',k2,' деталей, он заработал ',s2,' тенге');
writeln('3 слесарь сделал ',k3,' деталей, он заработал ',s3,' тенге');
writeln('Всего 3 слесаря заработали ',s1+s2+s3,' тенге');
end.
var f:text; a:array[1..7] of real; i,k,c,x:integer; s:string;
begin
for i:=1 to 7 do
begin
readln(x);
a[i]:=x;
end;
assign(f,'file.txt');
rewrite(f);
for i:=1 to 7 do
begin
str(a[i],s);
writeln(f,s);
end;
close(f);
reset(f);
k:=0;
while not eof(f) do
begin
readln(f,s);
val(s,x,c);
if x<0 then k:=k+1;
end;
close(f);
if k<>0 then writeln('В массиве ',k,' отрицательных элемента(ов)');
else writeln('В массиве нет отрицательных элементов');
erase(f);
end.
2)
Var a,b,c,d:integer;
Function max(a,b:integer):integer;
begin
if a>b then max:=a
else max:=b;
end;
Begin
readln(a,b,c,d);
a:=(max(a,b));
b:=(max(c,d));
writeln('max=',max(a,b));
End.