Решить в pascal даны три слова a1,a2,a3 и их перевод p1,p2,p3. напечатать перевод заданного слова a4(a4=a1 или a2 или a3).

A123,p123 переменные в прогу внести
readln(a4);
if a4 == a1 then writeln(p1) else
if a4 == a2 then writeln(p2) else
if a4 == a3 then writeln(p3);