Var a:string;
begin
readln(a);
if length(a)=1 then a:=a+' ';
if a[2]<>' ' then delete(a,2,1) else writeln('Такого нет');
readln;
<span>end.</span>
var breadPrice: real; // цена хлеба
breadCount: byte; // количество хлеба
milkPrice: real; // цена молока
milkCount: byte; // количество молока
sum: real; // сумма покаупки хлеба и молока
Ивана Крузенштерна.
Справочно - не склоняется в женском роде.
Да это одно и тоже у тебя в учебники есть ответ в конце