program Antras;
var a, b, c: integer;
begin
writeln ('Iveskite trizenkli skaiciu');
readln;
  if ((num div 10) mod 10) = 8 then
  writeln('Vidurinis skaitmuo lygus 8');
  Readln;
end.

Add a code snippet to your website: www.paste.org