Можно ли на паскале создать чат бот и сколько нервных клеток на это моно угрохать? просто интересно

Неьзя а вот на delphi можно и несложно)

Думаю твоих клеток на это не хватит.

Возьмите делфи.. . и не надо и**ть мозги...

Program cyberdein ;
var
a,b: string;
f,g,h: string;
begin
writeln('Привет меня зовут кибердайн.');
writeln('Я могу поговрить с тобой в чате.');
writeln('Давай поговорим!!!!');
writeln('Привет!');
readln(a);
case a of
'Привет': writeln('Как дела!');
'Дратути': writeln('Че как ? ');
else
writeln('Как дела?');
end;
readln(b);
case b of
'Хорошо': writeln('и у меня хорошо');
'Офигительно': writeln('а у меня вааще зашибись');
'Отлично': writeln('У меня тоже все протекает отлично!');
else
writeln('У меня все более менее.');
end;
writeln('Ты чем-то увлекаешся ? ');
readln(f);
case f of
'да': writeln('А чем же?');
'нет': writeln('А, ЧТО ТЫ ЛЮБИШЬ ДЕЛАТЬ ?');
else
writeln('А, ЧТО ТЫ ЛЮБИШЬ ДЕЛАТЬ ?');
end;
readln(g);
case g of
'Вышивание': writeln( 'Классное увлечение !');
'игра на гитаре':writeln('Да ты у нас музыкант !!!');
'Футбол': writeln('Я думаю, что ты будешь великим футболистом');
else
writeln( 'Классное увлечение !');
end;
writeln('Пока мне пора идти');
readln(h);
case h of
'Пока': writeln('ПОКА ДРУЖИЩЕ!!!');
'покеда': writeln('ПОКЕДА ДРУЖБАН!!!');
' До Свидания': writeln(' До Свидания!');
else
writeln(' До Свидания!');
end;
end.

можно вот код
Program chat;
uses crt;
var s:string;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
readln(s);
if s='привет' then
writeln('привет');
if s='как тебя зовут' then
writeln('Егор');
if s='Пока' then
writeln('Пока');
end;
readln;
end.

да можно, только нужно не на паскале, а скажем на делфи, тогда можно

Можно, всё, что нужно это раздобыть библиотеку vk для паскаль. Она есть, но ее трудно найти в интернете.