" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
Program Hitung;
uses crt;
var x,y : integer;
Begin
clrscr;
write('Input Nilai x = ');
readln(x);
y:= 2*x*2 + (5*x-8);
writeln;
writeln(' Y = ',y);
readln;
End.