Представь в различных формах информацию о своём городе

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.

как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст

вот она

program ohotnik;

uses crt;

var i: integer;

begin 

clrscr;

textcolor(4);

write(' ka}i{gbiu ');

textcolor(12);

write(' oxothuk ');

textcolor(14);

write(' }i{ejiaet ');

textcolor(2);

write(' 3hatb ');

textcolor(3);

write(' rge ');

textcolor(1);

write(' cug9t ');

textcolor(5);

write(' fa3ahbi ');

readln;

end.

зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..

25 декабря 1951 году был создан первый отечественный комп

qbasic

? "введите стоимость книг и сумму денег соответсвенно через запятую"

input a,b

if a=b then 1 else 2

1 ? "" : goto 10

2 if a> b then 3 else 4

3 a-b=c

? "не хватает денег,доплатите"; c : goto 10

4 b-a=r

? "ваша здача"; r

10 end