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.