Есть-ЛИ (и если есть) сколько СТОИТ? - так понятнее?
Program Subj;
var
a:=char;
b:=integer;
begin
writeln('Есть ли сабж Y/N');
readln(a);
if a='y' or 'Y' then do
writeln('Скока стоит?');
readln(b);
writeln('
[email protected]',b);
if a='n' or 'N' then do
halt;
else
writeln('ERROR');
end.
[Ответ]
