Ввести с клавиатуры три числа a,b,c. проверить,являются ли ,то есть a＜b＜c не шарю

*могу писать с ошибками, давно паскаль изучал, но суть верна
begin
var a,b,c:integer;
Read(a);
Read(b);
Read(c);
if ((a<b) and (b<c)) then
writeln("Введено верно!");
else 
writeln("Введено неверно!");
end.

Pascal
Program system
Var a, b, c : real;
Begin
Readln(a, b, c);
If (a < b) and (b < c) then
Writeln( ‘YES’ )
Else writeln( ‘NO’ );
End.