дано целое трехзначное число a . по заданному алгоритму составте код программы

А это правильно

Это язык Packal?

Спасибо

Привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет привет

Program summa;vara:integer;x:real;beginreadln(a);x:= a mod 10;writeln(x);end.