clc;
clear;

% محاسبات
tedad = 0;

for x = 13:13:100
    disp(x);
    tedad = tedad + 1;
end

% خروجی
disp('Tedad = ');
disp(tedad);x = -pi:0.1:pi;
plot(x, cos(x))