Rules is rules.
Printable View
I'm on it......
Program Destroy_Univercity;
Var S:string;
i,number:integer;
univercity:boolean;
univercity_name:string;
Begin
S:='Univercity destroyed';
writeln('Enter number of all univercities:');
readln(number);
For i:=1 to number do begin
writeln('Enter univercity name:');
readln(univercity name);
writeln('Enter true if the univercity is destroyed or false if it's not:');
readln(univercity);
if univercity=false then begin
destroy(univercity_name);
writeln(S);
end
else writeln(S);
end;
End.
Indeed....
going offline... :wave: