Мне в школе по информатике задали написать простую или не программу на языке pascal. за неимением компьютера скачал на самсунг pascalgui. найти program code ; var 2145: string; begin write ('введите код 2145: '); read(2145) write('molotok') end.

Program code;
Var s: string;
begin
write('Введите код: ');
read(s);
if s='2145'
 then write('molotok') else writeln('no');
end.

Пример:
Введите код: 2145
molotok

Program z1;Var a:integer;beginwrite ('Введите код 2145:');read(a);writeln('molotok'); end.

В pascal abc написал, все работает)) Можно чуть усложнить, через if сделать.