Var a,b: string;begin write('введите время года ==> '); readln(a); if (a='зима') then write ('зима ==> очень холодно'); if (a='весна') then write ('весна ==> тепло'); if (a='лето') then write ('лето ==> жарко'); if (a='осень') then write ('осень ==> холодно'); end.
write('введите время года ==> ');
readln(a);
if (a='зима') then write ('зима ==> очень холодно');
if (a='весна') then write ('весна ==> тепло');
if (a='лето') then write ('лето ==> жарко');
if (a='осень') then write ('осень ==> холодно');
end.