Пожалуйста, помогите! Мне в школе по информатике задали написать простую или не очень...

Question

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

Answer 1

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

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

Answer 2

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

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

Comments

Спасибо большое!