Известно x,y,z найти a,b (pascal).

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.

Объяснение:

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.