Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Вывести возраст человека ( от 1 до 99) и вывести возраст со словом ( год, года или лет)

эот через программу паскаль) помогите как ниписать в программе

типо такого: program qq; и тд

Ответ оставил Гость

program qq;
var a:integer;
begin
readln(a);
a:=a mod 10;
if a=1 then writeln(god)
else if (a=2) or (a=3) or (a=4) then writeln (goda)
else writeln(let);
end.