pianopeth

@echo off
cls
chcp 1250>nul
setlocal EnableDelayedExpansion
set "a[1]=Alma"
set "a[2]=Cseresznye"
set "a[3]=Szilva"
set "a[4]=Kajszibarack"
set "a[5]=Eper"
set "a[6]=Őszibarack"
set "a[7]=Körte"
set "b[1]=meggy"
set "b[2]=kajszibarack"
set "b[3]=mogyoró"
set "b[4]=dió"
set "b[5]=birsalma"
set "b[6]=gesztenye"
set "b[7]=cseresznye"
for /L %%i in (1,1,7) do (echo !a[%%i]! ízű !b[%%i]! nincs a !b[%%i]!fán, 
echo Nem kell senkinek ilyen találmány.
echo.)