Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  mn
Language: PASCAL
Code:
const
c=150;
d=70;
var
s,n:integer;
na:string;
uses crt;
begin
clrscr();
writeln(' enter n:');
readln(n);
writeln('enter na:');
readln(na);
writeln('enter s:);
readln(s);
writeln('n:',n);
writeln('na:',na);
s:=s+c;
s:=s-d;
writeln('s:',s);
readln;
end.
          
Comments: