Вводится целое число, если оно меньше либо равно 38, то вывести надпись "салют" , иначе подсчитать у=5х-38. сделать блок-схему и программу

//прога на Pascal`e {бдок-схема в файле}
var
x: int64;
begin
write ('Введите целое число: ');
readln (x);
if x<=38 then write ('Салют') else write ('y = 5x-38 = ', 5*x-38);
end.