Question

hãy viết ra màn hình biểu thức A=x-y-20 trong pasca

Answer 1

uses crt;

begin

clrscr;

writeln('A=',x-y-20);

readln;

end.

Answer 2

uses crt;
var x,y:integer;
Begin
clrscr;
write('Nhap x:'); readln(x);
write('Nhap y:'); readln(y);
write('x-y-20=',x-y-20);
readln;
End.

Answer 3

uses crt;
var x,y:integer;
Begin
clrscr;
write(' nhap x:'); real(x);
write(' nhap y:'); real(y);
write('x-y-20=',x-y-20);
real;
End.