перевести с языка паскаля на школьный алгоритмический язык

program n_4

var x, a, b, c, s: integer

writeln ('Нахождение суммы цифр трехзначного числа')

write (' Введите исходное число>>')

readln (x) ;

a :=x div 100;

b :=x mod 100 div 10;

c :=x mod 10;

s :=a+b+c;

writeln ('s= ' , s)

end

Topergggg    1   10.04.2020 18:23    9