Pascal.Задача: Написать программу, которая просит моё имя адрес дома. P.S: Можете придумать имя и адрес.

Предыдущий
вопрос Следующий
вопрос

const name='Anton';

adress='Lenina, 10';

var rname,radress : string;

begin

write('Enter Your name: '); readln(rname);

write('Enter Your adress: '); readln(radress);

if rname<>name then

begin

writeln('Its not Your name !');

readln;

halt;

end;

if radress<>adress then

begin

writeln('Its not Your adress !');

readln;

halt;

end;

writeln('Its Your name and adress !');

readln;

end.