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

Question

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

---

Answer 1

Program summa;
var
a:integer;
x:real;
begin
readln(a);
x:= a mod 10;
writeln(x);
end.

Comments

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

---

Это язык Packal?

---

Спасибо

---

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