Известно x,y,z найти a,b (pascal). ДАЮ 100 БАЛЛОВ

Question

Известно x,y,z найти a,b (pascal). ДАЮ 100 БАЛЛОВ

---

Answer 1

uses crt;  var i,a,b,x,y,z,m: integer;    begin    write('vvesti A kratno 5 '); readln(a);     write('vvesti B kratno 5 '); readln(b);     write('vvesti X, Y, Z '); readln(x,y,z);   m:=x;   if m>y then m:=y;  if m>z then m:=z;  y:=a*m-b;  writeln(y);  readln;  end.