program abathmou_exisosi;
uses crt;
var
a,b,x,y:integer;
BEGIN
clrscr;
writeln('Give a= ');
readln(a);
writeln('Give b= ');
readln(b);
writeln('Give x= ');
readln(x);
{Akolouthoun praxeis}
y:=a*x+b;
writeln('y= ',y);
readln;
END.






lockquote>