Uses crt;
Var
e,a:integer;f,b:string;c:integer;d:Boolean;
Begin
Clrscr;
d:=true;
Write(‘a = ‘);
Readln(a);e:=a+a;
Write(‘b = ’);
Raedln(b);f:=b+b;
Write(‘c = ‘);
Readln(c);Writeln(d);Writeln(e);Writeln(f);
Readln;
End.
0 komentar:
Posting Komentar