1.Var x, y, z, i:integer;
Begin
Readln(x);
Readln(y);
Readln(z);
If x=y then begin
If y=z then Writeln('numbers are equal' )
else begin if y>z then Writeln(y) else Writeln(z)
End; end
else begin if x>y then i:=x else i:=y;
If i>z then Writeln(i) else Writeln(z) end
2.const s1 = 10000;
const s2 = 15000;
var sum,zp,st: integer;
begin
write('Введите стаж: ');
readln(st);
write('Введите зарплату: ');
readln(zp);
if (st>=2) and (st<=5) then sum:=zp+s1
else if (st>5) then sum:=zp+s2;
writeln('Зарплата: ',zp);
writeln('Стаж: ',st);
if (st>=2) and (st<=5) then writeln('Надбавка: ',s1)
else if (st>5) then writeln('Надбавка: ',s2);
writeln('Сумма к выплате: ',sum);
end.
Объяснение:
Решил даже 2 :)
пропущен знак умножения!!